00100	
00200	<SEXPR> ::= 	<ATOMIC> =>*
00300		::= (<SEXPRLIST>) =>*
00400	<SEXPRLIST> ::= .<ATOMIC> =>*
00500			::=<SEXPR> <SEXPRLIST> =>(SEXPR . SEXPRLIST)
00600			::= => NIL
00700	<ATOMIC> ::= <EXCL><REST> =>REST
00900		 ::= : <SEXPR> =>(: SEXPR)
01000		::= ,<SEXPR> => (/, SEXPR)
01100		::= @<SEXPR> => (/@ .SEXPR)
01200		::= '<SEXPR> => (QUOTE  SEXPR)
01225		::= !<ATOM> =>(! ATOM)
01250		::= !<SEXPR> =>(! . SEXPR)
01275		::= !  =>(! NIL)
01300		::= <ATOM> => *
01400	
01500	<EXCL> ::= ! => NIL
01600	
01700	<REST> ::= "<SEXPR> => (!/" . SEXPR)
01800		::= <PREFIX> <ATOM> =>(PREFIX ATOM)
01900		::= <PREFIX> <SEXPR> => (PREFIX . SEXPR)
01950		::= <PREFIX> =>(PREFIX NIL)
02300	
02400	END